Telstar Electronic Studios (UK) (Press Kit)/Telstar Electronic Studios (UK) (Press Kit).bin/pc/tes_ects/002.dir/00001.ls

Text File | 1996-01-01 | 1.4 KB | 83 lines

global gColorD, pups_off

on startMovie
  global doxlib, stagger, oldx, oldy, roll_me, notanim, pc, mac
  if the machineType <> 256 then
    set mac to 1
  else
    set mac to 0
  end if
  set notanim to 1
  set roll_me to 0
  set stagger to 1
  set oldx to -10
  set oldy to -10
  preLoadCast(56, 91)
  preLoadCast(97, 107)
  preLoadCast(115, 140)
end

on disposeRearWindow
  global rwObj
  if objectp(rwObj) then
    rwObj(mdispose)
  end if
end

on which_frame
  if random(3) = 1 then
    go("AN1")
  end if
  if random(3) = 2 then
    go("AN2")
  end if
  if random(3) = 3 then
    go("AN3")
  end if
end

on pups_off
  repeat with a = 1 to 44
    puppetSprite(a, 0)
  end repeat
  repeat with a = 46 to 48
    puppetSprite(a, 0)
  end repeat
end

on allpups_off
  repeat with a = 1 to 48
    puppetSprite(a, 0)
  end repeat
end

on exitFrame
  global stagger, oldx, oldy, notanim
  if stagger then
    set stagger to 1
  else
    set stagger to 1
  end if
  set cn45 to the castNum of sprite 45
  if cn45 = 139 then
    if stagger then
      set the castNum of sprite 45 to 115
    end if
  else
    if stagger then
      set the castNum of sprite 45 to cn45 + 1
    end if
  end if
  if the frame > 82 then
    if (oldx = the mouseH) and (oldy = the mouseV) then
      if (the timer > 400) and notanim then
        which_frame()
      end if
    else
      startTimer()
      set oldx to the mouseH
      set oldy to the mouseV
    end if
  end if
end